home *** CD-ROM | disk | FTP | other *** search
/ ftp.mactech.com 2010 / ftp.mactech.com.tar / ftp.mactech.com / thinkref / archive / THINKPascalUH2.1.sea / THINKPas Univ Hdr 2.1 / Interfaces / FileTransferTools.p < prev    next >
Text File  |  1995-09-14  |  2KB  |  96 lines
  1. { Converted with MPW2TPas Tuesday, September 12, 1995 6:09:48 PM }
  2. {}
  3. {     File:        FileTransferTools.p}
  4. { }
  5. {     Contains:    CommToolbox File Transfer Tools Interfaces.}
  6. { }
  7. {     Version:    Technology:    System 7.5}
  8. {                 Package:    Universal Interfaces 2.1 in “MPW Latest” on ETO #18}
  9. { }
  10. {     Copyright:    © 1984-1995 by Apple Computer, Inc.}
  11. {                 All rights reserved.}
  12. { }
  13. {     Bugs?:        If you find a problem with this file, use the Apple Bug Reporter}
  14. {                 stack.  Include the file and version information (from above)}
  15. {                 in the problem description and send to:}
  16. {                     Internet:    apple.bugs@applelink.apple.com}
  17. {                     AppleLink:    APPLE.BUGS}
  18. { }
  19. {}
  20.  
  21. unit FileTransferTools;
  22. interface
  23.  
  24.  
  25. {$IFC UNDEFINED __FILETRANSFERTOOLS__}
  26. {$SETC __FILETRANSFERTOOLS__ := 1}
  27.  
  28.     uses
  29.         ConditionalMacros, Types, Quickdraw, Dialogs, Connections, Terminals, FileTransfers;
  30.  
  31. { $PUSH}
  32. { $ALIGN MAC68K}
  33. { $LibExport+}
  34.  
  35.     const
  36. { DEFs }
  37.         fdefType = 'fdef';
  38.         fsetType = 'fset';
  39.         fvalType = 'fval';
  40.         flocType = 'floc';
  41.         fscrType = 'fscr';
  42.         fbndType = 'fbnd';
  43.         fverType = 'vers';
  44.  
  45. { control }
  46.         ftInitMsg = 0;
  47.         ftDisposeMsg = 1;
  48.         ftSuspendMsg = 2;
  49.         ftResumeMsg = 3;
  50.         ftMenuMsg = 4;
  51.         ftEventMsg = 5;
  52.         ftActivateMsg = 6;
  53.         ftDeactivateMsg = 7;
  54.         ftGetErrorStringMsg = 8;
  55.         ftAbortMsg = 52;
  56.         ftStartMsg = 100;
  57.         ftExecMsg = 102;
  58.         ftSendMsg = 103;
  59.         ftReceiveMsg = 104;
  60. { setup }
  61.         ftSpreflightMsg = 0;
  62.         ftSsetupMsg = 1;
  63.         ftSitemMsg = 2;
  64.         ftSfilterMsg = 3;
  65.         ftScleanupMsg = 4;
  66. { validate }
  67.         ftValidateMsg = 0;
  68.  
  69.         ftDefaultMsg = 1;
  70. { scripting }
  71.         ftMgetMsg = 0;
  72.         ftMsetMsg = 1;
  73. { localization }
  74.         ftL2English = 0;
  75.         ftL2Intl = 1;
  76.  
  77.  
  78.     type
  79.         FTSetupStruct = record
  80.                 theDialog: DialogPtr;                                { the dialog form the application }
  81.                 count: INTEGER;                                { first appended item }
  82.                 theConfig: Ptr;                                    { the config record to setup }
  83.                 procID: INTEGER;                                { procID of the tool }
  84.             end;
  85.  
  86.         FTSetupPtr = ^FTSetupStruct;
  87.  
  88.  
  89. { $ALIGN RESET}
  90. { $POP}
  91.  
  92. {$ENDC}
  93.  {__FILETRANSFERTOOLS__}
  94.  
  95. implementation
  96. end.